WITH Linked_List;
with ada.text_io;
use ada.text_io;
PROCEDURE Test_List IS

    procedure print (p_item : Integer)is
    begin
	put_line(integer'image(p_item));
    end print;

    package int_list is new linked_list (Integer, print);
    use int_list;
   A_List : List_A;
   head, del : link_a;
BEGIN
   A_List := New_List;
   Head := Insert_First(A_List, 5);
   del := insert_after(head, 6);
   head := insert_after(del, 3);
   head := delete_after(del);
   print_list(a_list);
END Test_List;

